home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aaw.d64 / autodoodle (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  606b  |  41 lines
  1. 10 REM RANDOM DOODLE
  2. 11 T=1000
  3. 15 PRINT"[147]"
  4. 17 POKE53280,0:POKE53281,0
  5. 20 P=1024+INT(RND(1)*999)+1:G=P+54272
  6. 30 Z=INT(5*RND(1))+1
  7. 40 IFZ=1THENS=81
  8. 41 IFZ=2THENS=64
  9. 42 IFZ=3THENS=84
  10. 43 IFZ=4THENS=102
  11. 44 IFZ=5THENS=160
  12. 45 K=INT(8*RND(1))+1
  13. 50 IFK=1THENC=9
  14. 51 IFK=2THENC=1
  15. 52 IFK=3THENC=2
  16. 53 IFK=4THENC=3
  17. 54 IFK=5THENC=4
  18. 55 IFK=6THENC=5
  19. 56 IFK=7THENC=6
  20. 57 IFK=8THENC=7
  21. 80 D=INT(8*RND(1))+1
  22. 81 IFD=1THENR=-39
  23. 82 IFD=2THENR=-40
  24. 83 IFD=3THENR=-41
  25. 84 IFD=4THENR=-1
  26. 85 IFD=5THENR=1
  27. 86 IFD=6THENR=39
  28. 87 IFD=7THENR=40
  29. 88 IFD=8THENR=41
  30. 89 M=INT(40*RND(1))+1
  31. 90 FORZ=1TOM:POKEP,S:POKEG,C:P=P+R
  32. 95 IFP<=1024THENP=P-R
  33. 96 IFP>=2023THENP=P-R
  34. 97 G=P+54272
  35. 99 T=T-1
  36. 100 IFT=0THENGOTO10
  37. 110 PRINT"TIME";T
  38. 120 PRINT"[145][145][145]"
  39. 1101 NEXTZ
  40. 1110 GOTO30
  41.